home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 September
/
Ahoy_Magazine_87-09_1987_Double_L_Side_A.d64
/
No News 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
32 lines
10 rem *** no news (64) *** buck childress ***
20 rem *** p.o. box 13575 salem, or 97309 ***
30 printchr$(147)"loading and checking data line:":j=53000
40 forb=0to11:reada
50 ifb=0thenl=peek(64)*256+peek(63):printchr$(19)tab(31)l:print
60 ifa<0ora>255then80
70 pokej+b,a:x=x+a:d=d+1:nextb:reada:ifa=xthen90
80 print"error in data line:"l:end
90 x=0:j=j+12:ifd<240then40
100 print"the data is ok...":print
110 print"sys 53000 toggles on and off...":end
120 data169,79,32,210,255,160,207,204,3,3,240,19,1581
130 data173,2,3,174,3,3,141,251,207,142,252,207,1558
140 data169,78,162,59,76,50,207,169,70,32,210,255,1537
150 data174,251,207,172,252,207,142,2,3,140,3,3,1556
160 data76,210,255,32,96,165,134,122,132,123,32,115,1492
170 data0,170,240,243,162,255,134,58,176,3,76,156,1673
180 data164,32,121,165,169,1,141,249,207,169,0,160,1578
190 data255,141,248,207,141,250,207,141,246,207,200,185,2428
200 data0,2,240,107,201,34,208,6,77,246,207,76,1404
210 data99,207,174,246,207,208,235,201,138,240,8,201,2164
220 data147,240,4,201,162,208,223,165,214,141,247,207,2159
230 data174,247,207,160,0,24,32,240,255,169,224,160,1892
240 data207,32,30,171,238,248,207,208,28,206,249,207,2031
250 data208,23,169,20,141,249,207,169,128,77,250,207,1848
260 data141,250,207,240,215,169,18,32,210,255,76,140,1953
270 data207,32,228,255,201,78,240,4,201,89,208,212,1955
280 data32,210,255,201,78,208,3,76,116,164,169,13,1525
290 data32,210,255,76,225,167,65,46,72,46,83,46,1323
300 data65,82,69,32,89,79,85,32,83,85,82,69,852
310 data63,32,40,89,47,78,41,146,32,0,0,0,568